主题：实现“入库单在保存时自动生成会计凭证”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

老师：你好！怎样才能实现双击（或按下某一按键时执行）窗口中表的任何一行，使该行第一列、第二列内容分别输入在窗口文本框的第一列、第二列

双击窗口中表的任何一行

老师：你好！请教一下，我的成品出库表各行卷号分别是1、2、3、4、4 在命令窗口输入代码

Dim Lst As New List(Of String)
Dim Arys() As String

Lst = DataTables("成品出库明细表").GetValues("卷号")
Arys = Lst.ToArray() '将集合转换为数组
For Each nm As String In lst
    Dim Ary() As String= New String() {nm}
    Dim Str1 As String
    Str1 = String.Join("\", Ary)
    Output.Show(Str1)
   
Next

输出的为什么不是1\2\3\4 

而是

1

2

3

4

老师：你好：请教一下，窗口两个文本框分另绑定表A中类别和编号，表中的编号是根据类别自动生成的编号，怎样能实现在表A没在加载以前的数据情况下，编号还能按以前继续生成编号， 是否可以在窗口中增加一个从数据库中加载的表，然后编号根据这个来自动生成？

老师：你好：请教一下，窗口两个文本框分另绑定表A中类别和编号，表中的编号是根据类别自动生成的编号，怎样能实现在表A没在加载以前的数据情况下，编号还能按以前继续生成编号， 是否可以在窗口中增加一个从数据库中加载的表A，然后编号根据这个表A来自动生成？

谢谢

max = e.DataTable.sqlCompute("Max(客户编码)","地区 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify"))

是这样改吗