主题：关于设计piao据

table控件不需要用combobox控件啊，直接用表啊。

table里面如果你需要用下拉，就设置表事件设置；如果你需要直接查找数据填充，就直接filler进去啊

http://www.foxtable.com/help/topics/0680.htm

可以做一个填充按钮，也可以写到afterLoad事件，填充你需要的东西

Dim Cols1() As String = {"收支类型","收支类别","类别明细"}
Dim Cols2() As String = {"收支类型","收支类别","类别明细"}
Dim cr As Row = Tables("学费表").Current
For Each dr1 As DataRow In DataTables("收支类别表").Select("收支类型 = '收入' and 收支类别 = '学费收入'")
    Dim idx As Integer = Tables("学费表.学费明细表").FindRow("收支类型 = '收入' and 收支类别 = '学费收入' and 类别明细 = '" & dr1("类别明细") & "'")
    Dim dr2 As Row
    If idx < 0 Then
        dr2 = Tables("学费表.学费明细表").AddNew()
    Else
        dr2 = Tables("学费表.学费明细表").Rows(idx)
    End If
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

prepareEdit事件，再不会做就算了。

If e.Col.name = "收支类型" Then
    e.Col.ComboList = DataTables("收支类别表").GetComboListString("收支类型")
ElseIf e.Col.name = "收支类别" Then
    e.Col.ComboList = DataTables("收支类别表").GetComboListString("收支类别", "收支类型 = '" &  e.Row("收支类型") & "'" )
ElseIf e.Col.name = "类别明细" Then
    e.Col.ComboList = DataTables("收支类别表").GetComboListString("类别明细", "收支类型 = '" &  e.Row("收支类型") & "' and 收支类别 = '" & e.Row("收支类别") & "'" )
End If