Question

我不确定我在这里尝试做什么是可能的。我有一个Sheridan SSDB Grid，它绑定了一个数据控件。当我填充数据控件时，网格将被填充。

但是，我必须在填充网格后手动添加一个额外的列，以显示数据库表中不存在的值。

要完成所有这些，我已经编写了这段代码：

Dim SQL As String
SQL = My_Query

dtaEmployees.DatabaseName = DB_Period_Name$
dtaEmployees.RecordSource = SQL

dtaEmployees.Refresh
dtaEmployees.Recordset.MoveFirst

grdEmployees.Redraw = True
grdEmployees.Columns.Add (4)

然而，我不确定如何填写这个新专栏。我有一个存储我需要的值的全局变量，但以下代码行都没有工作

grdEmployees.Columns(4).Value = My_Variable
grdEmployees.Columns(4).Text = My_Variable

如何设置网格中所有行的值？

修改的

在遵循评论中的建议后，我修改了我的代码如下。

表单加载：

Dim dbsPeriod As Database 
Dim tdfEmployees As TableDef 
Dim fldLoop As Field 

Set dbsPeriod = OpenDatabase(DB_Period_Name$) 
Set tdfEmployees = dbsPeriod.TableDefs!Ledger

AppendDeleteField tdfEmployees, "APPEND", "Location", dbText, 8 

grdEmployees.DataSource = tdfEmployees

AppendDeleteField tdfEmployees, "DELETE", "Location"

dbsPeriod.Close

AppendDeleteField sub：

Private Sub AppendDeleteField(tdfTemp As TableDef, strCommand As String, _
                              strName As String, _ 
                              Optional varType, Optional varSize) 

   With tdfTemp 
    If .Updatable = False Then 
       MsgBox "Failed to initialise grid!"
       Exit Sub 
    End If 

    If strCommand = "APPEND" Then 
       .Fields.Append .CreateField(strName, varType, varSize) 
    Else 
       If strCommand = "DELETE" Then .Fields.Delete strName 
    End If 
   End With 

End Sub

使用此代码，根本不会将任何数据加载到网格中。

Answer 1

在删除字段之前，您没有将数据加载到RecordSet。您需要将数据（使用SELECT查询）获取到数据结构中，网格可以将其用作.DataSource

TableDef不是数据结构，它只允许您对数据库表本身进行更改，这就是您的代码不返回任何行的原因。

Sheridan SSDB网格为整列设定值

1 个答案: