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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 3月5日更新

共有27057人关注过本帖树形打印复制链接主题：3月5日更新

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

kensou11111的参赛作品：技术文件(主要是BOM)的管理系统 发帖心情

Post By：2009/3/5 11:34:00 [显示全部帖子]

以下是引用cpayinyuan在2009-3-5 11:30:00的发言：

建议同时也支持 dr1("配合量") Is Nothing 这样的方式.

绝对赞成！！～～不过 dr1("配合量") Is Nothing 改为 dr1("配合量") ＝ "" 好像可以，我刚刚试过～～
但不管怎样，不支持 is nothing 的话，狐友们都要辛苦了，呵呵～～～

[此贴子已经被作者于2009-3-5 11:36:01编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/3/5 11:43:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-3-5 3:10:00的发言：
1、更改列类型已经合并到重命名列里头了
2、修正了部分bug.

加一条：
3、解决了 enter键进入和离开textbox控件时烦人的‘咚’之声！

狐友们可以继续加哦～～～

[此贴子已经被作者于2009-3-5 11:43:29编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/3/5 11:51:00 [显示全部帖子]

原来的 If Tables("表").Current("列") is nothing then 怎样来改？？

Dim lm As string = Tables("表").Current("列")
If lm.IsNull（"列"） then

是这样吗？？？

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/3/5 12:59:00 [显示全部帖子]

原来在afteredit事件中的代码，原 = nothing 都改为 = "" ,（编号和品名都有或都没有内容）现在不能执行啦～
Dim fxa As string = Tables("表A").Current("编号")
Dim fxb As DataRow = DataTables("表B").Find("[编号] = '" & ppdm & "'")
'if e.Col.Name = "编号" Then
    if fxb is nothing andalso fxa isnot nothing then  （红色这个怎么改？fxb =""提示错误啊）
         Messagebox.Show("没有该编号!", "提示",MessageBoxButtons.OK)
          e.Row("品名") = ""
    elseif e.Row.IsNull("编号") Then
         e.Row("品名") = ""
    Else
        e.Row("品名") = fxb("品名")
        Sendkeys.Send("{right}")
    End If
End If

声明一下： fxb is nothing 不用改，照样执行！！～～是不是因为fxb是表B的原因？
                条件中反而andalso fxa isnot nothing 在这里不起作用了？？？

[此贴子已经被作者于2009-3-5 13:40:22编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/3/5 13:14:00 [显示全部帖子]

单独使用 Tables("表A").Current("编号") = nothing 可以执行！～为何放在 If 后就不可以呢？？？

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/3/5 13:39:00 [显示全部帖子]

看26楼的声明～～

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/3/5 14:20:00 [显示全部帖子]

以下是引用gaoqr在2009-3-5 14:14:00的发言：
        If dr1("配合量") = 0 And dr1("系数") = 0 And dr1("单价") <> 0 Then
            dr1("金额") = dr1("定额用量") * dr1("单价")
        ElseIf dr1("配合量") = 0 And dr1("系数") <> 0 And dr1("单价") <> 0 Then
            dr1("金额") = dr1("系数") * dr1("定额用量") * dr1("单价")
        End If

这样也可以。与易表一样，看着也好理解。

哈哈。。。这样简单～我的andalso fxa isnot nothing 直接改为andalso fxa <> "" ok啦！！！～

不过你的‘公式’里的列值可要及时补 0 噢～

[此贴子已经被作者于2009-3-5 14:24:47编辑过]

下一主题 >> << 上一主题

主题：3月5日更新