主题：求助

参考

 

http://www.foxtable.com/webhelp/scr/2292.htm

 

Dim tbl As  Table =  Tables("录入窗口_Table1")
If tbl.Current  IsNot  Nothing  Then
    e.Form.DropDownBox.Value = tbl.Current("书名")
    Tables("借书登记").Current("图书编号") = tbl.Current("图书编号")
    Tables("借书登记").Current("作者") = tbl.Current("作者")
    'Tables("订单").Current("其它列3") = tbl.Current("其它列3")
    If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
        e.Form.DropTable.FinishEditing()
    Else  '如果是通过窗口下拉的
        e.Form.DropDownBox.WriteValue()
    End If
End  If
e.form.DropDownBox.CloseDropdown

加入msgbox定位出错位置。

 

如果自己不会调试，上传实例测试。

1、没有数据库无法测试；

 

2、请自行加入msgbox调试；

 

3、7楼问题，代码改成

 

Dim tbl As  Table =  Tables("录入窗口_Table1")
If tbl.Current  IsNot  Nothing  Then
    Dim nma() As String = {"书名","图书编号","出版地","出版者"} 'A表数据来源列
    Dim  nmb()  As  String = {"书名","图书编号","出版地","出版者"} 'B表数据接收列
    Dim  dr  As DataRow = DataTables("借书登记").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.Row(nma(i))
    Next
End  If

Dim dr As Row = Tables("借书登记").Current