主题：表间参数引用

你在窗口的AfterLoad事件中加入下面的代码，即可实现名称下拉框中引用参数表中的材料名称，以及驾驶员下拉框中引用参数表中的驾驶员：

 

Dim dt AS DataTable = DataTables("参数")
Dim lst AS String = dt.GetComboListString("材料名称")
e.Form.Controls("ComboBox2").ComboList = lst
e.Form.Controls("ComboBox3").ComboList = lst
e.Form.Controls("ComboBox4").ComboList = lst
e.Form.Controls("ComboBox5").ComboList = lst
e.Form.Controls("ComboBox11").ComboList = dt.GetComboListString("驾驶员")

 

至于自动输入单位、车号和车长，你可以参考下面的帮助，尝试自己写一下，如果搞不定，再发帖提问。

 

http://help.foxtable.com/topics/1458.htm

 

 

 

 

代码可以简化为：

 

Select Case e.DataCol.Name
    Case "品名1","品名2","品名3","品名4","品名5","品名6","品名7","品名8"
        '在产品表找出该产品
        Dim dr As DataRow
        dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataCol.Name & "'" )
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("单位" & e.DataCol.Name.SubString(2))= dr("单位")
        End If
End Select

其实你可以考虑用关联表。

我手误，代码应该是：

 

Select Case e.DataCol.Name
    Case "品名1","品名2","品名3","品名4","品名5","品名6","品名7","品名8"
        '在产品表找出该产品
        Dim dr As DataRow
        dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow(e.DataCol.Name) & "'" )
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("单位" & e.DataCol.Name.SubString(2))= dr("单位")
        End If
End Select

 

8列都可以的，请仔细体会一下上面的代码。