Dim Conn As SqlConnection = UW.SQL.GetOpenedConnection

        Dim Tran As SqlTransaction = Conn.BeginTransaction

        Try

            Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA Where Id = 1", Tran)

            C = C + 1

            UW.SQL.executeSQL("Update TableA Set Counter = " & C & " Where  Id = 1", Tran)

            Tran.Commit()

        Catch ex As Exception

            Tran.Rollback()

            UW.WU.DebugWriteLine(ex.ToString, True, True)

        Finally

            If Conn.State <> ConnectionState.Closed Then

                Conn.Close()

            End If

        End Try

Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA Where Id = 1", Tran)

Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA With(XLock) Where Id = 1", Tran)

#region Configure for Content Provider  =>區塊說明，在程式裡不會work



//Settings for Cotent Provider (for Alpha Enviroment)

string szCID = xmlDoc.DocumentElement["CID"].InnerText;

string szKey = "z1okwCmRSkgk/vkWzxIuwQNuUvf9d8gj";

string szIV = "dg454KArm6g=";

string szPassword = "1234";



#endregion 

<textarea id="myTextArea" style="WIDTH: 376px; HEIGHT: 160px" rows="10" cols="44"></textarea>

<input type="button" value="插入測試" onclick="InsertContent('myTextArea','我是要插入的文字');">

function InsertContent(AreaID,Content){

   var myArea = document.getElementById(AreaID);

   //IE

   if (document.selection){

      myArea.focus();

      var mySelection =document.selection.createRange();

      mySelection.text = Content;

   }else{

   //FireFox

     var myPrefix = myArea.value.substring(0, myArea.selectionStart);

     var mySuffix = myArea.value.substring(myArea.selectionEnd);

     myArea.value = myPrefix + Content + mySuffix;

   }

}