共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：换行
1楼
lihe60 发表于：2009/6/2 14:09:00父表为主表时,子表换行时,下一行不能输入数据,这是怎么回事?
2楼
yangming 发表于：2009/6/2 14:15:00上传看看
3楼
lihe60 发表于：2009/6/2 14:30:00打开＂销售订单"，用＂销售订单．订单明细＂中＂商品编号＂列采用＂目录树＂选择商品编号，换下一行时，再次输入，下一行不显示商品编号，而在上一行更改商品编号．谢谢帮助．
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:宝港.table |
4楼
lihe60 发表于：2009/6/2 14:43:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:宝港.table |
5楼
lihe60 发表于：2009/6/2 14:47:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:宝港.table |
6楼
lihe60 发表于：2009/6/2 14:49:00我上传的看不见．
7楼
八婺 发表于：2009/6/2 15:06:00If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[spmc] = '" & Vals(0) & "' And [ggxh] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("spbh").Find(Filter)
Dim r As Row = CurrentTable.Current
r("spmc")=dr("spmc")
r("spbh")=dr("spbh")
r("ggxh")=dr("ggxh")
e.Form.Close()
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[spmc] = '" & Vals(0) & "' And [ggxh] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("spbh").Find(Filter)
Dim r As Row = CurrentTable.Current
r("spmc")=dr("spmc")
r("spbh")=dr("spbh")
r("ggxh")=dr("ggxh")
e.Form.Close()
共7 条记录, 每页显示 10 条, 页签:
[1]