主题：关于数据绑定的，修改内容时的问题

 代码

With Tables("图库")
    Dim ta As WinForm.ComboBox = e.Form.Controls("图案")
    Dim tk As WinForm.TextBox = e.Form.Controls("图库编号")
   
    If ta.Value IsNot Nothing Then
        Dim dr As DataRow
        dr = DataTables("图库").Find("图案 = '" & ta.Value  & "'")
        If dr IsNot Nothing '如果找到, 则设置各列内容
            Tables("订单明细").Current("图库编号") = dr("图库编号")
           
        Else
           
            Tables("订单明细").Current("图库编号") = Nothing
           
        End If
       
    End If
   
End With

 原因

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