搜尋 SU 結果：
今天在 Visual Studio 2012 發生無法對應路徑 '/' 的錯誤，且 auto complete 失效, int32 都不認得。結果解決方式竟然是要用管理員的權限來執行 VS2012 然後再開啟 sln 檔，真是令人傻眼。
darren 補充:
請到此目錄 C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE
設定 devenv.exe 為管理者權限開啟
很神奇，在 Windows 8.1 的 devenv.exe 沒有相容性的 tag, 改了一些顯示相容性的 registry 也都沒有用，後來找到一個解法: http://superuser.com/questions/465065/no-compatibility-tab-for-devenv-exe-vs-2010-and-vs-2012-on-windows-8
主要內容如下:
Rightklick devenv.exe and choose Troubleshoot compatibility. In the new window click atTroubleshoot programm, then check The programm requires additional permission.
補上:
這個執行檔也要設定
C:\Program Files (x86)\Common Files\microsoft shared\MSEnv\VSLauncher.exe
darren 補充:
請到此目錄 C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE
設定 devenv.exe 為管理者權限開啟
很神奇，在 Windows 8.1 的 devenv.exe 沒有相容性的 tag, 改了一些顯示相容性的 registry 也都沒有用，後來找到一個解法: http://superuser.com/questions/465065/no-compatibility-tab-for-devenv-exe-vs-2010-and-vs-2012-on-windows-8
主要內容如下:
Rightklick devenv.exe and choose Troubleshoot compatibility. In the new window click atTroubleshoot programm, then check The programm requires additional permission.
補上:
這個執行檔也要設定
C:\Program Files (x86)\Common Files\microsoft shared\MSEnv\VSLauncher.exe
Bike, 2014/1/23 下午 09:09:14
Sub SendMail_godaddy(ByVal Subject As String, ByVal Body As String, ByVal FromMail As String, ByVal ToMail As String)
Dim objMail As New System.Web.Mail.MailMessage()
objMail.From = FromMail
objMail.To = ToMail
objMail.Subject = Subject
objMail.BodyFormat = Mail.MailFormat.Html
objMail.Priority = Mail.MailPriority.High
objMail.Body = Body
System.Web.Mail.SmtpMail.SmtpServer = UW.Mail.SMTP_SERVER_NAME
System.Web.Mail.SmtpMail.Send(objMail)
End Sub
Reiko, 2014/1/17 下午 02:50:53
Sub SendMail_gmail(ByVal Subject As String, ByVal Body As String, ByVal FromMail As String, ByVal ToMail As String)
Dim msg As New System.Net.Mail.MailMessage
Dim client As New System.Net.Mail.SmtpClient
Try
msg.Subject = Subject
msg.Body = Body
msg.From = New System.Net.Mail.MailAddress(FromMail)
msg.To.Add(ToMail)
msg.IsBodyHtml = True
client.Host = "smtp.gmail.com"
Dim basicauthenticationinfo As System.Net.NetworkCredential = New System.Net.NetworkCredential("username@gmail.com", "password")
client.Port = Int32.Parse("587")
client.EnableSsl = True
client.UseDefaultCredentials = False
client.Credentials = basicauthenticationinfo
client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
client.Send(msg)
Catch ex As Exception
UW.WU.DebugWriteLine(ex.ToString, True, True)
End Try
End Sub
Reiko, 2014/1/17 下午 02:48:37
Inherits Master
Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
HandleAction()
End Sub
Sub HandleAction()
If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then
Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")
Select Case Action
End Select
End If
End Sub
Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
LoadPageContext()
End Sub
Sub LoadPageContext()
End Sub
Sub JSONWriteToClient(ByVal TrueorFalse As Boolean, Optional ByVal msg As String = "", Optional ByVal Title As String = "", Optional ByVal Content As String = "", Optional ByVal Content2 As String = "", Optional ByVal Content3 As String = "")
Dim TF As String = Now.ToString("yyyyMMddHHmmss")
Dim oJ As UW.JSON
oJ = New UW.JSON(TrueorFalse, msg)
oJ.add("Title", Title)
oJ.add("Content", Content)
oJ.add("Content2", Content2)
oJ.add("Content3", Content3)
oJ.add("TF", TF)
oJ.WriteToClient()
Response.End()
End Sub
Doug, 2014/1/6 下午 12:25:22
Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
SHOPUNT.GN.WSC.CheckLogin() '檢查是否有登入、否則導回Login
SHOPUNT.GN.WSC.CheckRightOrStop(SHOPUNT.EN.AuthCode.廣告管理) '檢查是否有廣告編輯的權限
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
HandleAction()
End Sub
Sub HandleAction()
If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then
Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")
Select Case Action
End Select
End If
End Sub
Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
'Me.Master.strTitle = "目錄管理"
'Me.Master.IsListItemScript = True
LoadPageContext()
End Sub
Sub LoadPageContext()
End Sub
Doug, 2014/1/6 上午 11:40:25
我找到了我一直很想要的用滑鼠滑一滑就可以關掉頁面和上一頁下一頁的擴充套件啦~
是這裡分享的>>幸運草的吉光片羽
他還有分享其他很好用的套件,大家可以安裝來用用唷~
Yuan, 2014/1/4 下午 11:43:12
康是美出貨印單犯下的錯誤,這邊寫給未來新進同仁注意,出貨印單時發生訂單明細品項箱數與總數量不相符的問題,
測試之後發現是記錄原始訂單上傳log table [OrderFromCosmed Log] ,在撈出該筆訂單品項資料時,資料庫物件
下select條件時發生失誤,以下是程式碼:有問題的程式碼我以#號標記
說明:已上程式是在撈出訂單品項資料時要對康是美印單用.txt sample檔裡面的字串作取代最後再列印,發生問題的程式碼,
主要是撈出該筆訂單品項時,使用資料庫物件的方法GetDataRowAndReturnSelfOrNothing()時,只下訂單品項id而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!
測試之後發現是記錄原始訂單上傳log table [OrderFromCosmed Log] ,在撈出該筆訂單品項資料時,資料庫物件
下select條件時發生失誤,以下是程式碼:有問題的程式碼我以#號標記
For I As Int32 = 1 To DT.Rows.Count
If order_num_right = DT.Rows(I - 1)("Pid") Then
Pid_No = I - 1
End If
#OFCL.Pid = DT.Rows(I - 1)("Pid")
#OFCL.GetDataRowAndReturnSelfOrNothing()
Dim NewT As String = oT.Result
NewT = NewT.Replace("#Y#", StartY + (I - 1) * LH)
NewT = NewT.Replace("#序號#", I.ToString)
NewT = NewT.Replace("#品號#", OFCL.Pid)
NewT = NewT.Replace("#品名#", OFCL.Product_Name)
NewT = NewT.Replace("#包裝#", OFCL.Package)
NewT = NewT.Replace("#單位#", OFCL.UNIT)
NewT = NewT.Replace("#數量#", OFCL.Qty)
NewT = NewT.Replace("#箱數#", OFCL.BOX)
NewT = NewT.Replace("#總數量#", OFCL.Total)
NewT = NewT.Replace("#未稅價#", OFCL.Price)
NewT = NewT.Replace("#總金額#", OFCL.Sum)
Res &= NewT
Next
說明:已上程式是在撈出訂單品項資料時要對康是美印單用.txt sample檔裡面的字串作取代最後再列印,發生問題的程式碼,
主要是撈出該筆訂單品項時,使用資料庫物件的方法GetDataRowAndReturnSelfOrNothing()時,只下訂單品項id而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!
jimmy, 2014/1/3 下午 08:51:38
真不知道為什麼要花很多時間升級一個系統，然後再花很多時間讓它看起來和舊的一樣。 -- Windows 8.1
最近開始用 Windows 8.1 ，雖然大家都對它抱怨連連，但還是有一點點好處的啦 !! 我們總是在眾多缺點中找到優點。以下列舉幾個，希望未來可以慢慢增加。這些都是對工和師而言有感的優點。
另外我是從 windows 2008 跳到 windows 8.1，所以可能有部份功能是 window 7 就有的，請各位見諒:
1.Activited Window 的邊界更明顯，開很多視窗時更好找到邊界。
2.倉頡輸入法可以有類似 auto complete 的功能，可以少打幾個鍵就選到字。
3. 下方的工作列不合併的程式時，有把相同的程式放在一起，很好找。而且可以換位置對於常常在工作列找東西的人而言。真是一大福音。
4. 可把特定的程式釘在工作列的固定位置, 例如先排 Chrome ，再排 visual studio，會方便你找東西。
未來有發現其它的優點再和大家報告。
最近開始用 Windows 8.1 ，雖然大家都對它抱怨連連，但還是有一點點好處的啦 !! 我們總是在眾多缺點中找到優點。以下列舉幾個，希望未來可以慢慢增加。這些都是對工和師而言有感的優點。
另外我是從 windows 2008 跳到 windows 8.1，所以可能有部份功能是 window 7 就有的，請各位見諒:
1.Activited Window 的邊界更明顯，開很多視窗時更好找到邊界。
2.倉頡輸入法可以有類似 auto complete 的功能，可以少打幾個鍵就選到字。
3. 下方的工作列不合併的程式時，有把相同的程式放在一起，很好找。而且可以換位置對於常常在工作列找東西的人而言。真是一大福音。
4. 可把特定的程式釘在工作列的固定位置, 例如先排 Chrome ，再排 visual studio，會方便你找東西。
未來有發現其它的優點再和大家報告。
Bike, 2014/1/2 下午 07:34:49
問題情形：.NET 4.0在遇到IE11時，會將Style的width拿掉
參考：http://forums.asp.net/t/1934887.aspx
解決方法：安裝更新 KB2836939 下載
參考：http://forums.asp.net/t/1934887.aspx
解決方法：安裝更新 KB2836939 下載
Reiko, 2013/12/4 下午 12:18:12