插入文档中的checkbox以二进制格式保存到数据库中再打开后变成？了

收藏

如题。

gw0506 · gw0506

我需要看你保存和加载的代码。
出现？应该是字符编码集的问题。

qingtong1166 · qingtong1166

插入复选框的代码：
      TextControl1.Selection.FontName = "Arial Unicode MS"
      'UNCHECKED = UnicodeHexToString("\\u2610")
      'CHECKED = UnicodeHexToString("\\u2714")
      ' 通过特殊的适配器类型创建一个复选框
      Dim clsCheckBox As TXTextControl.DocumentServer.Fields.FormCheckBox = New TXTextControl.DocumentServer.Fields.FormCheckBox()
      clsCheckBox.Text = UNCHECKED
      'clsCheckBox.Text = "clsCheckBox.Text = UNCHECKED;";
      clsCheckBox.Enabled = True
      clsCheckBox.ApplicationField.Editable = True
      clsCheckBox.ApplicationField.DoubledInputPosition = True

      ' 将 ApplicationField 添加到文档中
      TextControl1.ApplicationFields.Add(clsCheckBox.ApplicationField)单击事件：
      Private Sub TextControl1_TextFieldClicked(ByVal sender As System.Object, ByVal e As TXTextControl.TextFieldEventArgs) Handles TextControl1.TextFieldClicked
      Dim field As TXTextControl.ApplicationField = CType(e.TextField, TXTextControl.ApplicationField)
      If Not field Is Nothing Then
         If field.TypeName = "FORMCHECKBOX" Then
            Dim chkb As TXTextControl.DocumentServer.Fields.FormCheckBox = New TXTextControl.DocumentServer.Fields.FormCheckBox(field)
            If chkb.Enabled = False Then Exit Sub
            If field.Text = UNCHECKED Then

                  chkb.Checked = True
                  chkb.Text = CHECKED

            ElseIf (field.Text = CHECKED) Then

                  chkb.Checked = False
                  chkb.Text = UNCHECKED
            End If

         End If
         End If
End Sub
保存到数据库：
      Dim strData As Byte()
      Me.TextControl1.Save(strData, TXTextControl.BinaryStreamType.InternalFormat)
      Dim newRow As DataRow
            newRow = dt.Rows.Add
            newRow.Item("templetID") = Me.TextBox1.Text
            newRow.Item("templetclass") = ComboBox1.Text
            newRow.Item("templetname") = TextBox3.Text
            newRow.Item("templetText") = sData
   ....
从数据库调入：
   sData=dt.rows(0).Item("templettext")
   Me.TextControl1.Load(sData, TXTextControl.BinaryStreamType.InternalFormat)

gw0506 · gw0506

UnicodeHexToString 这个方法是啥，哪里来的。其他代码没啥问题，现在就换一这个有问题。你在测一测。

qingtong1166 · qingtong1166

UNCHECKED = UnicodeHexToString("\\u2610")
CHECKED = UnicodeHexToString("\\u2714")
...
Private Function UnicodeHexToString(ByVal text As String) As String
      'returns the string representation
      Dim myText As String
      myText = System.Text.Encoding.Unicode.GetString(BitConverter.GetBytes(Short.Parse(text.Substring(3), System.Globalization.NumberStyles.HexNumber)))
      'Return System.Text.Encoding.Unicode.GetString(BitConverter.GetBytes(Short.Parse(Text.Substring(2), System.Globalization.NumberStyles.HexNumber)))
      Return myText
End Function

gw0506 · gw0506

你存进去的就是encoding过的，再读出来没有做处理，就成？了，应该就这个原因。

		自动登录	找回密码
密码			立即注册

[已处理] 插入文档中的checkbox以二进制格式保存到数据库中再打开后变成？了

5 个回复

活字格认证