新增 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有3422人关注过本帖树形打印复制链接主题：新增

大米zei乖

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：726 威望：0 精华：0 注册：2017/1/21 11:00:00

新增

Post By：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乖

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：726 威望：0 精华：0 注册：2017/1/21 11:00:00

Post By：2017/2/28 18:08:00 [显示全部帖子]

。。。不会上传图片

大米zei乖

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：726 威望：0 精华：0 注册：2017/1/21 11:00:00

Post By：2017/3/1 8:42:00 [显示全部帖子]

我看了，表名是对的，是“订单信息”

大米zei乖

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：726 威望：0 精华：0 注册：2017/1/21 11:00:00

Post By：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乖

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：726 威望：0 精华：0 注册：2017/1/21 11:00:00

Post By：2017/3/1 9:09:00 [显示全部帖子]

大米zei乖

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：726 威望：0 精华：0 注册：2017/1/21 11:00:00

Post By：2017/3/1 9:10:00 [显示全部帖子]

。。。。上传图片还是不会搞，晕了

大米zei乖

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：726 威望：0 精华：0 注册：2017/1/21 11:00:00

Post By：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