以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新增  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96834)

--  作者:大米zei乖
--  发布时间:2017/2/28 18:05:00
--  新增
我想通过窗口的形式新增订单,新增按钮代码如下:

With Tables("订单信息")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then 
        Tables("订单信息").AddNew()
    End If
End With

疑问:这个代码的结果虽然新增了行,但是输入的数据并没有保存到表里,我知道这个代码肯定不对,但是如何解决?跪求

另外比如说“订单信息”表中 双击某一行之后跳出了编辑窗口,但是为什么编辑窗口里没有任何数据啊

图片点击可在新窗口打开查看
[此贴子已经被作者于2017/2/28 18:06:18编辑过]

--  作者:大米zei乖
--  发布时间:2017/2/28 18:08:00
--  
。。。不会上传图片
--  作者:有点色
--  发布时间:2017/2/28 18:25:00
--  

 一般是表名弄错了,看你窗口控件绑定的是哪个表。

 

 看你双击的表是绑定哪个表?是不是副本表?副本表的表名是(窗口名_Table1)


--  作者:大米zei乖
--  发布时间:2017/3/1 8:42:00
--  
我看了,表名是对的,是“订单信息”



--  作者:有点蓝
--  发布时间:2017/3/1 8:55:00
--  
上传例子说明
--  作者:大米zei乖
--  发布时间:2017/3/1 9:08:00
--  
 http://pan.baidu.com/s/1pKMl0cN
http://pan.baidu.com/s/1milubDe 
http://pan.baidu.com/s/1pKVEQRx 
能看到不 

--  作者:大米zei乖
--  发布时间:2017/3/1 9:09:00
--  
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者:大米zei乖
--  发布时间:2017/3/1 9:10:00
--  
。。。。上传图片还是不会搞,晕了
--  作者:有点蓝
--  发布时间:2017/3/1 9:14:00
--  

上传附件方法:http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

 

控件绑定到表:http://www.foxtable.com/webhelp/scr/0704.htm

 


--  作者:大米zei乖
--  发布时间:2017/3/1 9:41:00
--  

绑定到表了,但是头两次管用,之后又不行了

 

另外目录树,前几天都没问题,今天双击后出现错误,显示DATABINDING 无法在列表中找到适合所有绑定的行

目录树代码如下:

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[分组] = \'" & dr("分组") & "\'"
        Case 1
            Filter = "[分组] = \'" & dr("分组") & "\' And [业务] = \'" & dr("业务") & "\'"
        Case 2
            Filter = "[分组] = \'" & dr("分组") & "\' And [业务] = \'" & dr("业务") & "\' And [品牌] = \'" & dr("品牌") & "\'"
    End Select
End If
Tables("订单信息").Filter = Filter


图片点击可在新窗口打开查看此主题相关图片如下:绑定表.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:目录树.jpg
图片点击可在新窗口打开查看