Dynamics SL:添加自定义表
Dynamics SL: Adding Custom Tables
因此,我一直在尝试将自定义 table 添加到 Dynamics SL 中的现有屏幕,但似乎无法正常工作。目前我在 Form_Load 活动
上有这个
Private Sub Form1_Load()
Call VBA_SetAddr("bSOShipLot_Alias", bSOShipLot_Alias, nSOShipLot_Alias, LenB(bSOShipLot_Alias))
Call SqlCursorEx(CSR_SOShipLot_Alias, NOLEVEL, "CSR_SOShipLot_Alias", "SOShipLot_Alias", "SOShipLot_Alias")
End Sub
我尝试将游标变量添加到模块页面
Public CSR_SOShipLot_Alias As Integer
但这只会让屏幕崩溃。这类事情的文档很少,我查看了我们拥有的所有 SDK 文档,几乎没有找到任何与此相关的内容。
因此,要通过自定义管理器添加新的 table,请执行以下操作:
1. 添加您要添加的自定义设置 table 的模块文件(示例见下文)
Option Explicit
Attribute VB_Name = "FCGenKeyValDH"
Type FCGenKeyVal
Comments As String * 250
Crtd_DateTime As SDate
Crtd_Prog As String * 8
Crtd_User As String * 10
Key1 As String * 30
Key2 As String * 30
Key3 As String * 30
LinkedTable As String * 30
LUpd_DateTime As SDate
LUpd_Prog As String * 8
LUpd_User As String * 10
Purpose As String * 30
Id As Long
Status As String * 1
User1 As String * 30
User2 As String * 30
User3 As Double
User4 As Double
User5 As String * 10
User6 As String * 10
User7 As SDate
User8 As SDate
Value As String * 30
End Type
Public bFCGenKeyVal As FCGenKeyVal, nFCGenKeyVal As FCGenKeyVal
在 Form_Load() 事件上添加对缓冲区 table 和 SQL 游标
的引用
Call VBA_SetAddr("bFCGenKeyVal", bFCGenKeyVal, nFCGenKeyVal,LenB(bFCGenKeyVal))
Call SqlCursorEx(CSR_FCGenKeyVal, NOLEVEL, "CSR_FCGenKeyVal", "FCGenKeyVal", "FCGenKeyVal")
在声明文件中添加游标变量
Public CSR_FCGenKeyVal As Integer
保存更改,关闭屏幕并重新打开。 table 应该会出现在添加对象向导中,告诉您自定义 table 已链接到屏幕。
因此,我一直在尝试将自定义 table 添加到 Dynamics SL 中的现有屏幕,但似乎无法正常工作。目前我在 Form_Load 活动
上有这个Private Sub Form1_Load()
Call VBA_SetAddr("bSOShipLot_Alias", bSOShipLot_Alias, nSOShipLot_Alias, LenB(bSOShipLot_Alias))
Call SqlCursorEx(CSR_SOShipLot_Alias, NOLEVEL, "CSR_SOShipLot_Alias", "SOShipLot_Alias", "SOShipLot_Alias")
End Sub
我尝试将游标变量添加到模块页面
Public CSR_SOShipLot_Alias As Integer
但这只会让屏幕崩溃。这类事情的文档很少,我查看了我们拥有的所有 SDK 文档,几乎没有找到任何与此相关的内容。
因此,要通过自定义管理器添加新的 table,请执行以下操作: 1. 添加您要添加的自定义设置 table 的模块文件(示例见下文)
Option Explicit
Attribute VB_Name = "FCGenKeyValDH"
Type FCGenKeyVal
Comments As String * 250
Crtd_DateTime As SDate
Crtd_Prog As String * 8
Crtd_User As String * 10
Key1 As String * 30
Key2 As String * 30
Key3 As String * 30
LinkedTable As String * 30
LUpd_DateTime As SDate
LUpd_Prog As String * 8
LUpd_User As String * 10
Purpose As String * 30
Id As Long
Status As String * 1
User1 As String * 30
User2 As String * 30
User3 As Double
User4 As Double
User5 As String * 10
User6 As String * 10
User7 As SDate
User8 As SDate
Value As String * 30
End Type
Public bFCGenKeyVal As FCGenKeyVal, nFCGenKeyVal As FCGenKeyVal
在 Form_Load() 事件上添加对缓冲区 table 和 SQL 游标
的引用Call VBA_SetAddr("bFCGenKeyVal", bFCGenKeyVal, nFCGenKeyVal,LenB(bFCGenKeyVal)) Call SqlCursorEx(CSR_FCGenKeyVal, NOLEVEL, "CSR_FCGenKeyVal", "FCGenKeyVal", "FCGenKeyVal")
在声明文件中添加游标变量
Public CSR_FCGenKeyVal As Integer
保存更改,关闭屏幕并重新打开。 table 应该会出现在添加对象向导中,告诉您自定义 table 已链接到屏幕。