[求助]自定义函数还是不知如何使用，请老师看下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自定义函数还是不知如何使用，请老师看下

共有3071人关注过本帖树形打印复制链接主题：[求助]自定义函数还是不知如何使用，请老师看下

huangfanzi

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

加好友

发短信

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

[求助]自定义函数还是不知如何使用，请老师看下 发帖心情

Post By：2020/4/25 22:40:00 [显示全部帖子]

服务端的ReceivedMessage

If e.Message = ":czbh:" Then

Functions.Execute("重置编号")

e.ReturnValue = "重置编号成功!"

End If

服务端的自定义函数“重置编号”

MessageBox.Show("我重置编号了!")

Return Nothing

我现在在客户端输入以下代码：

If QQClient.Ready Then

Dim msg As String = QQClient.SendWait(":czbh:",5)

If msg = "" Then

Popmessage("未获服务器响应!","提示",PopIconEnum.Error)

Else

Popmessage( msg,"提示",PopIconEnum.Infomation)

End If

在实际使用中，MessageBox.Show("我重置编号了!") 会用其他代码替代，现在执行的结果是，服务端是弹出了 “我重置编号了!”，可是客户端确返回 "未获服务器响应!"，肯定有自定义函数有地方写错了，估计还是个低级错误，可我就是不会啊，请老师看下，谢谢！

huangfanzi

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

加好友

发短信

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

Post By：2020/4/26 10:28:00 [显示全部帖子]

哪上面的写法对吗？

函数中要替代 MessageBox.Show 代码如下：

Dim dt5 As DataTable

Dim cmd5 As New SQLCommand

cmd5.C

cmd5.CommandText = "S elect 类型,Year(日期) As 年, Month(日期) As 月,Max(批号) As 批号 From {出入库台账} Group By 类型,Year(日期), Month(日期)"

dt5 = cmd5.ExecuteReader

gxpmph.Clear()

For Each dr As DataRow In dt5.DataRows

Dim qz As String

If dr("类型") = "入库" Then

qz = "RK"& dr("年") & Format(dr("月"),"00")

ElseIf dr("类型") = "出库" Then

qz = "CK"& dr("年") & Format(dr("月"),"00")

End If

Dim bh As String = dr("批号")

Dim id As Integer

If bh.Length = 13 Then

bh = bh.SubString(9)

If Integer.TryParse(bh,id) Then

gxpmph.Add(qz, id)

End If

huangfanzi

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

加好友

发短信

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

Post By：2020/4/26 12:41:00 [显示全部帖子]

没问题了，是我想多了，去掉MessageBox就正常了

再请教下，像这次函数的使用，需要在后面加 Return Nothing 吗？

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

主题：[求助]自定义函数还是不知如何使用，请老师看下