Foxtable(狐表)用户栏目专家坐堂 → [求助]代码有问题,请帮助


  共有3522人关注过本帖树形打印复制链接

主题:[求助]代码有问题,请帮助

帅哥哟,离线,有人找我吗?
utcxray
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
[求助]代码有问题,请帮助  发帖心情 Post By:2014/7/19 15:24:00 [显示全部帖子]

代码有问题,请帮助

以下代码实现采购单价的统一性。

If e.DataCol.Name = "型号" Then '如果内容发生变动的是型号
    If e.NewValue Is Nothing Then '如果新值是空白,也就是型号列的内容为空
        e.DataRow("
单价") = Nothing '那么清空此行单价列的内容
   
Else
        Dim
dr As DataRow
       
'
否则在采购明细表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("
采购明细").Find("[型号] = '" & e.NewValue & "'")
        If
dr IsNot Nothing Then '
如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("
单价") = dr("单价")
        End
If
    End
If
End
If

‘以下代码实现如有价格变动,确保系统能正确区分同一产品不同时期的价格差异,并提示用户确认。

If e.Col.Name = "单价" Then '如果正在输入的是单价列

    If e.Text > "" Then '如果已经输入内容

        Dim v As Double = Val(e.Text)

        If v < > dr("单价")  Then '将输入的内容与以往同名产品价格做比较。

            MessageBox.Show("此价格与历往价格有差异,确定要修改,请在价格较低的型号后加“特价”两字,否则系统将无法区分!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Information)

            e.Cancel = True '则取消输入

Dim wz As Integer
Dim
dr As DataRow
dr = DataTables("
采购明细表").Find("[型号] = '" & e.Table.Current("型号") & "'")
If
dr IsNot Nothing Then
    wz = Tables("
型号").FindRow(dr)
    If wz >= 0 Then
        Tables
("
型号").Position = wz
    End If
End
If

 

..       End If

    End If

End If



 


 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/7/19 17:24:00 [显示全部帖子]

请高手指点,急

 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/7/21 9:34:00 [显示全部帖子]

如图
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/7/21 9:38:00 [显示全部帖子]

不好意思,因是周末,大家都忙,我急也忘了贴图

 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/7/21 9:44:00 [显示全部帖子]

谢谢,有点甜,我的意思是如果输入型号,则单价从采购明细表中查找填入,保持单价的一致性,但如果我要修改单价,就要判断修改后的单价与系统中原有的价格是否一致。你能将此语句给我吗

 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/7/21 9:55:00 [显示全部帖子]

如图
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/7/21 10:19:00 [显示全部帖子]

谢谢有点甜,谢谢BIN图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/7/21 13:18:00 [显示全部帖子]

有点甜,这段代码好像有问题,我在价格中输入与原先价格一样的数字,他也说价格有差异,为什么

 回到顶部