c# - 在 visual fox pro 中准确填充列表框

Question

enter image description here我在填充列表框时遇到问题，例如，我想在 active = "1"的位置填充它，以便显示 active = "1"的数据，而 active="0"的数据仍然隐藏，

此列表显示猫名“hey now”和“shiet”，它们具有 active =“0”:

我希望它们只在我的列表框中显示 active = 1 的那些

Answer 1

作为另一个答案，您也可以在代码中执行此操作，实际上在代码中更容易。当您的 SQL 很长时，您可能还需要在代码中执行(属性窗口不允许您在那里输入长 SQL 字符串，限制为 255 个字符)。

下面是在美国的客户(示例中)代码 list 中的完整示例:

Public oForm
oForm = CreateObject('MyForm')
m.oForm.Show()

Define Class myForm as Form
    Height=440
    Width=400
    DataSession=2

    Add Object lstCustomersInUSA as listbox with top=20, left=10, height=400, Width=200
    Add Object btnShowSelectedInfo as CommandButton with Top=20, Left = 220,Caption="Show Selected"

    Procedure lstCustomersInUSA.Init
       this.RowSourceType = 3
       Text to this.RowSource pretext 15 noshow
       Select Company, Contact, Cust_id
         from (_samples+'data\Customer')
         where country = 'USA'
         into cursor crsSample
         nofilter
       EndText
    EndProc

    Procedure btnShowSelectedInfo.Click
    If thisform.lstCustomersInUSA.ListIndex = 0
        MessageBox("None selectedyet")
        Return
    endif
    Local lcInfo
    Text to m.lcInfo textmerge pretext 3 noshow
       Id: << crsSample.Cust_id >>
       Company: << crsSample.Company >>
       Contact: << crsSample.Contact >>
    EndText
    MessageBox( m.lcInfo, 0+4096, 'Selected Customer', 5000)
    endproc
enddefine

注意:如果您想使用设计器中的表单对此进行测试，那么假设您添加了一个名为“lstCustomersInUSA”的列表框和一个名为“btnShowSelectedInfo”的按钮，请执行以下操作:

• 双击列表框并选择初始化方法。复制并粘贴上面“Procedure lstCustomersInUSA.Init”中的代码。
• 对按钮执行相同操作，并在其点击方法中复制并粘贴上面“Procedure btnShowSelectedInfo.Click”中的代码。运行表单。