Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联的问题


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

主题：关联的问题
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 7:38:00 [显示全部帖子]

可以的吗?是单向还是双向,我测试不行啊,我试试!

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 8:03:00 [显示全部帖子]

我测试一下是可以,是不是我的代码在修改日期时,不能自动修改单号,帮我看看:

If e.DataCol.Name = "开单日期" Then
    If e.DataRow.IsNull("开单日期") Then
        e.DataRow("系统单号")= Nothing
    Else
        Dim cmd1 As New SQLCommand
        Dim dt1 As DataTable
        Dim dr As DataRow
        cmd1.C
        cmd1.CommandText = "SELECT * From {单号定义}"
        dt1 = cmd1.ExecuteReader()
        dr = dt1.find("表名='" & CurrentTable.Name & "'")
        If dr IsNot Nothing Then
            Dim s As String =dr("单号定义") & Format(e.DataRow("开单日期"),"yyMMdd")
            Dim cmd As New SQLCommand
            Dim dt As DataTable
            cmd.C
            cmd.CommandText = "SELECT * From {销售订单}"
            dt = cmd.ExecuteReader()
            If e.NewValue <> Nothing And e.DataRow("系统单号") = Nothing Then
                Dim i1 As String = dt.Compute("Max(系统单号)","开单日期 ='" & e.DataRow("开单日期") & "'")
                Dim n As Integer
                If s = left(i1,8) Then
                    n=CInt(right(i1,4))
                Else
                    n=0
                End If
                s= s & format(n+1,"0000")
                e.DataRow("系统单号")=s
            End If
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 8:31:00 [显示全部帖子]

Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT * From {权限控制} Where [Group] = '" & _UserGroup & "' And 项目 ='权限' And 修改 =False"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
    e.Cancel = True
    MessageBox.show("你没有权限修改开单日期!","权限被控!")
End If

  这段代码我想放在日期控件里面,放在那个控件比较好,绑定字段,但是现在点一下出来两次提示.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 8:36:00 [显示全部帖子]

而且不能修改日期.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 8:50:00 [显示全部帖子]

If CurrentTable.Name ="销售订单" Then
    CurrentTable.DataTable.LoadFilter ="总经理审批 Is Not Null"
    CurrentTable.DataTable.Load
Else
    CurrentTable.DataTable.LoadFilter ="审批人 Is Not Null"
    CurrentTable.DataTable.Load
End If

这句代码有什么问题?因为提示说至少有一个值没有指定!
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 9:32:00 [显示全部帖子]

9楼和11楼的代码怎么处理比较好,这个我再研究一下!

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 9:44:00 [显示全部帖子]

老大那个单号生成的你改个代码给我好不好,这个sql不太懂,系统单号我已经改成用find了.


系统单号因为是开系统不加载数据的,是判断同一天的系统单号最大值来生成的.谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 9:46:00 [显示全部帖子]

11楼的SQL测试没有问题.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 10:02:00 [显示全部帖子]

老大什么意思? 我请求帮忙,你发错了吧?

老大那个单号生成的你改个代码给我好不好,这个sql不太懂,单号定义我已经改成用find了.

系统单号因为是打开系统不加载数据的,是判断同一天的系统单号最大值来生成的.谢谢!

你帮我改一下8楼的代码.
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/11/2 11:22:00 [显示全部帖子]

老大你帮我8楼的代码改一下吧!

 主要是系统打开不加载数据,根据后台日期最大的编号+1.
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 5 次数据查询