0

これまで Farpoint Spread を実際に使用したことはありませんが、Spread グリッドに列を追加する必要がある既存の VB.NET アプリケーションがあります。現在、次のようなコードがあります。

For Each dr As DataRow In g_AdoRS.Rows
    vaSpreadSum.SetText(1, x, dr(0))    'pol_ser
    ...
    vaSpreadSum.SetText(20, x, dr(19))    'renew_pay_cd     
    vaSpreadSum.SetFloat(21, x, dr(20))    'renew_tot_prem
    vaSpreadSum.SetFloat(22, x, dr(21))    'renew_pol_limit
    vaSpreadSum.SetFloat(23, x, dr(22))    'renew_ded_amt

    vaSpreadSum.Col = 28
    x = x + 1
Next dr

これらの SetFloat() および SetText() 呼び出しは 0 から 28 までです。別の列を追加するために、次のコード行を追加しました。

vaSpreadSum.SetText(28, x, dr(27))    'agent name

vaSpreadSum.Col を 29 に変更しました

vaSpreadSum.Col = 29

しかし、グリッドに別の列が表示されません。理由はありますか？エラーがスローされたり、そのようなものはなく、画面に変化はありません。これを解決するにはおそらくもっと多くの情報が必要であることはわかっていますが、Farpoint Spread グリッドに列を追加する基本を誰かが知っていたとしても、それは大歓迎です。これを見つけましたが、アプリケーションがそのように列を追加しているようには見えません。AddColumns() メソッドへの呼び出しがどこにも見つかりませんでした。

助けてくれてありがとう！

これが私の Form_Load メソッドだと思います

Private Sub FrmDetailRPC_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Cursor.Current = Cursors.WaitCursor

    FormInit()
    QryLocation()

    Cursor.Current = Cursors.Default
End Sub

FormInit() も含めます。これは、探しているものと関係があるように聞こえるためです。

Sub FormInit()
    txtBusUnit.Text = svBusUnit
    stmtMktSeg()
    txtProduct.Text = svProduct
    txtSource.Text = svSource
    txtSystem.Text = svSystem
    txtCustSeg.Text = svCustSeg

    stmtProduct()

    txtLocation.Text = svLocation
    If svLocationLabel = "Region" Then
        lblLocation.Text = "Territory"
    Else
        lblLocation.Text = svLocationLabel
    End If

    lblLocation.TextAlign = ContentAlignment.TopRight

    stmtLocation()
    'txtPayType.Text = svPayType
    txtTimePer.Text = TimeName
    stmtTimePer()

End Sub

そしてQryLocation()

Sub QryLocation()
    Dim producerID As String

    'SetProductSelection()
    stmtLocation()
    stmtGetProductType()
    stmtGetTimePeriodType()
    stmtGetTimePeriod()
    stmtGetProducerID()
    stmtGetProducerType()

    If stmtProducerType = "No Preference" Then
        producerID = "NULL"
    Else
        producerID = "'" & stmtProducerID & "'"
    End If

    g_strSQL = "pc_mis_rpc_getdata_detail " & _
    "'" & stmtLocationType & "'," & _
    "'" & Trim(svLocation) & "'," & _
    "'" & svBusUnit & "'," & _
    "'" & stmtProductType & "'," & _
    "'" & Trim(stmtProductDtl) & "'," & _
    "'" & stmtTimePeriod & "'," & _
    "'" & stmtTimePeriodType & "'," & _
    "'" & stmtProducerType & "'," & _
    producerID & "," & _
    "'Retention'" _
    & FilterQry & "," & _
    "'" & Trim(txtCustSeg.Text) & "'," & _
    "'" & Trim(txtSource.Text) & "'," & _
    "'" & Trim(txtSystem.Text) & "'"


    ProcQry()

End Sub
4

2 に答える 2

0

ではForm_Init()、スプレッド コントロールの列数を調整する必要があります。

次のようになります。

Sub FormInit()
    ' Add a column to the spreadsheet control
    vaSpreadSum.ActiveSheet.AddColumns(29, 1)

    ' Code cut for brevity
End Sub

- また - 

Sub FormInit()
    ' Add a column to the spreadsheet control
    vaSpreadSum.ActiveSheet.Columns.Count = 29

    ' Code cut for brevity
End Sub

同じことを実現する別の方法として、フォーム デザイナーを開き、スプレッド コントロールを選択し、プロパティ ウィンドウを表示して (まだ開いていない場合は F4 キーを押します)、Cols プロパティを 29 に増やします。

于 2014-02-24T19:43:35.880 に答える